home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / LCAXAR.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  985 b   |  13 lines
  1.  
  2. *LOAD FROM ROW AT ADDRESS IN ACCUMULATOR,                                       
  3. *DOUBLE CONSTANT TO ACCUMULATOR                                                 
  4. *                                                                               
  5. LCAXAR $MACRO  T                                                                
  6.        $IF  T.L=0     ASSIGN TEMP                                               
  7.        $ASG 'XR0' TO T.S                                                        
  8.        $ENDIF                                                                   
  9.        TBLR :T:       READ HIGH PART OF :T:                                     
  10.        ADD  ONE,0     INCREMENT AC                                              
  11.        TBLR :T:+1     READ LOW PART OF :T:                                      
  12.        LDAX :T:       LOAD TO AC                                                
  13.        $END